home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / gt_power / jluti400.zip / QUEST003.@JL < prev    next >
Text File  |  1990-12-11  |  2KB  |  81 lines
  1. ;
  2. ;This is a TEST-Questionaire.
  3. ;
  4. @@DE=|
  5. @@TI=QUEST v3.10                                    (C) 1988-91 WAP Juergen Lorenz
  6. :START
  7. CLS
  8. @@CO=
  9. @@CO=
  10. @@CO=We will display several sentences and ask you to which degree the sentences
  11. @@CO=are true.
  12. @@CO=
  13. @@CO=   eg:  The weather is fine.
  14. @@CO=
  15. @@CO=
  16. @@CO=   Enter
  17. @@CO=
  18. @@CO=   [1], if this sentence is true for you
  19. @@CO=   [7], if this sentence is false for you
  20. @@CO=
  21. @@CO=   or choose a No. between [1] and [7] to indicate your degree of aggreement.
  22. @@CO=   Press RETURN after you made your choices.
  23. @@CO=
  24. @@CO=
  25. OK=|Press any key to start with the Questionaire...|1|3|2|2|1|2
  26. :C001
  27. CLS
  28. @@CO=
  29. @@CO=
  30. @@CO=
  31. @@CO=                                I FEEL FINE.
  32. @@CO=
  33. @@CO=
  34. @@CO=
  35. @@CO=
  36. @@CO=
  37. @@CO=                        [1] FALSE  ...  [7] TRUE
  38. @@CO=
  39. @@CO=
  40. C001=|Enter your Choice:|1|3|1|3|1|2
  41. IF C001 >  7 THEN GOTO :C001
  42. IF C001 =  0 THEN GOTO :C001
  43. IF C001 >= 4 THEN GOTO :C003
  44. :C002
  45. CLS
  46. @@CO=
  47. @@CO=
  48. @@CO=
  49. @@CO=                    I WANT TO GET HELP TO FEEL BETTER.
  50. @@CO=
  51. @@CO=
  52. @@CO=
  53. @@CO=
  54. @@CO=
  55. @@CO=                        [1] FALSE  ...  [7] TRUE
  56. @@CO=
  57. @@CO=
  58. C002=|Enter your Choice:|1|3|1|3|1|2
  59. IF C002 >  7 THEN GOTO :C002
  60. IF C002 =  0 THEN GOTO :C002
  61. :C003
  62. CLS
  63. @@CO=
  64. @@CO=
  65. @@CO=
  66. @@CO=                 I WANT TO ANSWER THIS QUESTIONAIRE AGAIN.
  67. @@CO=
  68. @@CO=
  69. @@CO=
  70. @@CO=
  71. @@CO=
  72. @@CO=                        [1] FALSE  ...  [7] TRUE
  73. @@CO=
  74. @@CO=
  75. C003=|Enter your Choice:|1|3|1|3|1|2
  76. IF C003 >  7 THEN GOTO :C003
  77. IF C003 =  0 THEN GOTO :C003
  78. IF C003 >= 4 THEN GOTO :START
  79. @@TI=
  80. CLS
  81.